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DISCLAIMER 



Although each program has been tested by its contributor, 
no warranty, express or implied, is made by the contributor 
or any User's Group, as to the accuracy and functioning of 
the program and related program material, nor shall the fact 
of distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or any User's Group, in connection 
therewith. 
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Robert N. Kubik 
The Babcock- Wilcox Company 
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Lynchburg, Virginia 



March 21, 1967 



Modifications or revisions to this program, as they occur, will be 
announced in the appropriate Catalog of Programs for IBM Data Processing 
Systems . When such an announcement occurs , users should order a 
complete new program from the Program Information Department. 
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PROGRAM ABSTRACT 



1. TITLE (If subroutine, state in Title); QSORT, DSRT 1, DSRT 2 f 3 subroutines) 

, Subject Classification ^. 1 



2. Author; Organization: Mr. Robert N. Kubik, The Babcock-Wilc ox Company 
Date: 3/26/67 Users Group Membership Code: 



3. Direct Inquiries to Name: Mr. Robert N . Ku bik. The B abcock-Wilrn v Gnmpany 
1 201 Kemp er Street. Lynchburg, Virginia Phone :70 3 846-7371 

4. Description /Purpose: (5. Method: 6. Restriction/Range; When Applicable): 



Three sort subprograms written in FORTRAN for the IBM 1 130 are included. First, 
sort based on Alg o rithm 271 as published in the ACM Communications requires 
only a minimum 1130. Second, a disk sort which requires 8k memory and 4 1 sk. 
Third, a disk sort which requires 4K memory and disk but is less effecient. These 
would not be practical for sorting large files. These subprograms are available 
at this time for the^ll30. 



7. Specifications (Check or fill in appropriate spaces): 
a. Storage used by Program: 4K. 8K. 4K. respectively 



b. Equipment required by program: Card _; Magnetic Tape ; Number of 

Drives ; Paper Tape ; Disk Fil e 2&3 ; Number of Drives ; TNS, TNF, 

MF, ; Auto divide ; Indirect addressing ; Floating Point Hardware 

; 1620 Model I ; Model II ; 1443 Printer ; Index Registers ; 

Binary Capabilities ; other (specify) 



Can program be used on lesser machine? NO . Specify which requirements can 
be easily removed 

c. Programmed in: Fortran without Format ; Fortran with Format ; 

Fortran II ; Other Fortran (specify) ; SPS (specify assembler used) 

; Other (specify) 1130 Fortran 



d. Type of Program: Mainline, Complete ; Subroutin e X ; If subroutine, for 

use with SPS (specify type of SPS) ; Fortran (specify type of Fortran 

; Other (specify) 



8. Additional Remarks: 



/A 
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DECK KEY 



Deck # 



1 

2 


FORTRAN deck 


QSORT 


cards 1-110 


FORTRAN deck 


DSRT1 


cards 1-168 


3 


FORTRAN deck 


MAINL 


cards 1-30 


4 


Sample problem input 




cards 1-7 


5 


FORTRAN deck 


DSRT2 


cards 1-94 



card sequence numbers are in columns 76 - 80 



Program Abstract 

Three sort subprograms are included in this report. A FORTRAN version 
of Algorithm 271 Quickersort, published in CACM, vol. 8, No. 11, Oct., 
1965, by R. S. Scowen; which is a very fast internal sort for randomly 
distributed keys. It is herein called QSORT. It requires minimal storage, 
i.e. storage for the records to be sorted plus one record. Run time in 
favorable cases can be approximated by: 

/ \ 13 

/ number of records J = run time in seconds , 

V 80 / 

for instance 1200 records of two words each were sorted in 30.4 seconds. 
However, unfavorable key distribution can result in substantially longer run 
time. Cases have been observed where the exponent in the above formula 
approaches 1.9. 




^^ DSRTI is a disk sort for files exceeding core storage available . It uses 
^^QSORT to create ordered strings of data. Then a series of passes are made 
which can best be described as combining the logic of pair exchange and 
merging. DSRTI requires 2560 plus the number of words in a record, words 
of working storage. Run time is approximately 



(number of records) x number of words/record 



10,000 



: run time in seconds . 



DSRT2 is a disk sort for files exceeding fast storage size available. It 
is a direct application of the same algorithm as QSORT. It requires 1632 
words working storage, thereby minimizing storage requirement. In all cases 
tested to date it has proven substantially slower than DSRTI . It is possible, 
however, it would prove to be faster than DSRTI on relatively large files 
with large records , (80 words per record or more) . 

These sorts are intended for sorting keys and tags (e.g. record numbers) 
so that one can find records in a larger file in proper sequence for updating 
or report preparation. They can, however, be used as any sort routines 
would be - provided the records have less than 321 words/record; the keys 
are integers and are grouped in major to minor sequence as the first items of 
each record. Suggestions are included for circumventing this restriction on 
the keys and for speeding up these routines. These subroutines should be 
suitable for the IBM 1800 although they have not been tested on that machine 
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USER INFORMATION 



This program and its documentation were written by 
Mr. Robert N. Kubik, { the Babcock-Wilcox Company, 
1201 Kemper Street, Lynchburg, Virginia, 703 846-7371). 
They have been submitted to the Program Information 
Department for general distribution in the expectation 
that they may prove useful to other members of the data 
processing community. The program and its document- 
ation are, essentially, in the author's original form and 
have not been subject to any formal testing. IBM only 
serves as the distribution agency in supplying this 
program. It is the user's responsibility to determine 
the usefulness and technical accuracy of the program 
in his own environment. This program is not part of the 
Programming SystesmfType I) and Application Programs 
(Type 10. Questions concerning the use of the program 
should be directed to the author. Any changes to the 
program will be reflected in the appropriate catalog of 
programs; however, the changes will not be distributed 
automatically to users . 



Purpose: QSORT is an internal sort for files which can be held in core 
storage. DSRT1 and DSRT2 are for files exceeding the size of available 
core storage. 

Advantages: QSORT minimizes working storage and is very fast for randomly 
distributed keys. DSRT1 is relatively efficient. DSRT2 minimizes working 
storage requirement. Sorting large files is awkward at best on a one disk 
system. Usually the most efficient solution is to sort only keys and tags 
(e.g. record numbers) and then access the file in its existing order by means 
of the table so generated. These subroutines appear to be adequate for that 
purpose. 

Method: QSORT and DSRT2 continually split the file into parts such that the 
keys of all records in one part are less than the keys of all records in the 
other part, with a third part in the middle consisting of a single record A 
record with key t is chosen arbitrarily, i and j are the lower and upper 
records of the segment being split. After the split has taken place the qth 
record will have been found such that the key of the qth record is t and the 
key of the Ith record £ t £ the key of the Jth record, for all i and j such that 
u J V , The pr °9 ram then Performs operations on the two segments- 
the ith thru (q-l)th records and the (q+l)th thru jth records as follows. The 
smaller segment is split and the position of the larger segment is stored in 
the It (lower temporary) and ut (upper temporary) arrays. If the segment to 
be split has two or fewer elements it is sorted and another segment obtained 
from the It and ut arrays. When no more segments remain, the array is com- 
pletely sorted . 

nc^l"" 1 S ° rtS 9rOUPS ° f records of approximate cylinder size by use of 
y&ORT It then handles the file in groups of records of approximately one 
half cylinder size. It makes successive merge passes merging the second 
and third group, the fourth and fifth group and so on; and then merges the 
first and second group, the third and fourth and so on. These merge passes 
are alternated until the file is in order. 

Restrictions and rang e- 

-number of records < 32,767 
-number of words/record £ 320 



~W»n me , iC ' ^ fir .^ w °"is ^ the record and in major to minor sequence 

-sons rue i as Se'liTleclTnTok'i'KAN dTfWfILE stateme"nT *"* ~ 3 ' 

-integers are considered to be one word each 
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-m OSORT and DSRT2 p is the position of an arbitrary record in the file The 
Sus 7Z fie / S ^ T^ SPlltS ** Se9aent *** *»° hal -= of eoua slzt 

3,o!ce K 2e ^ "r" 3 "* SOrted ' ** middle element is ««e^, 
^ !' u (segment) is completely random the middle element is as 

i ^f- u, Jrr TCr ' tte me (se9snent) * such that ^ SAr 

Accord ^ " •' m b ° th SOrtEd * e middle eIement «»* be very naT 
Accord^ly in so™ cxrcumstances p = (i + i)/2 should te ^^ by 

?„ «T + 3 * j)/4 or by a p selected at random. The method of selecta. d u S «i 
m these routines will prove to be best in the majority of cases Sv^ 

JX™™ Programs operated under the 1130 Disk Monitor System 

?Z , ^f , 3 4K maCM ° e 0nly ' althou 3 h ^ ■»"« space that x^s amiable 

SsRT^L *£** Ca " h8 SOrted - DSRT1 re « ulres 8K storage a^o^isk 
DSRT2 requires 4K storage and a disk. 

il^th. In ° S ^ RT , the JT' ber ° f WHdS « *• ke * *«*«« run time very 
Tte !ar^<=t.« , WOTdS " a IeCO,d SOmeWhat m0re ' but ** S"bstantolly 
of kev? fl ^! S °? nm ttme arB * e nUmber of records ™» the distribution 
of keys . A number of cases run with random key distribution have erfubifeTa 
run tune characterized by the expression: exmoited a 



' number of records \ 
I 80 J 



1.3 



' run time in seconds , 



typical of these cases are the following: 

number of records words/record wordsA' 



time 



300 

eoo 

1200 



2 


5.4 sec 


2 


12.3 sec 


2 


30.4 sec, 



Under certain circumstances run time can be substantially longer (see 
^f!^°" S , l"* Ran96) " faCt Serfes <* cases ^ve been observed which fit 



the expression: 



f number of records \ 



80 






; run time in seconds. 



bTtht fo^r" reC ° nfS bay ei9M W ™ dS ""»-"» underestimated 



DSRT1 timings can be approximated by: 
( number of records) 2 - number of words per reco^ = run ti me ta seC onds. 

brtwTfomu^ 96 reC ° niS (S3V 6i9hty WOTdS " m0rc) wU1 te "rrierestimated 

oSvL^t tT °Zf^'t eS nm ^ "° f0rmula for P^d^ting time has been 
™T^L ♦ «»>«*»*» however, that on large files with 80 or more words 

Z^^VlZ" ™ more efflcient ta DSRT1 • Some «— **** «»ve 



records 

128 

250 

1000 



words/record 

80 
20 

7 



DSRT1 



DSRT2 



202 sec. 


230 sec 


120 sec. 


315 sec 


730 sec. 
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Program Modification iUl L 

c *r" n ^^^ ov c 0mment Pards 

*eys or keys which are nM fte ^^^ ES^« -er, 

shoui, .o clear from the ro R r N TrnX f r r fl i^ rt The ai -^ 

DSRT1 could hp cno<j„j 
FORTRAN read/write sCst^ TH "^ by re " aci "* the 
of records and delivers these to Se DSRT, S uh " ^^ and Wites *»«*» 
however, be no advantage for large r S SUbprogram ° n «U. This would, 
restrictions on the TO L JS^Sf t^Tt^ed """*" 

DSRT1 and DSRT2 sort FTiri tu- 
«to number i„ the disk ^ne stated ' ^ Cha " 9ed by Chan *^ *e 
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Input-Out put Descrip tion 



OSORT is called by - 
CALL QSORT (NREC, NWREC, NWKEY A « 
where NREC is the number of record; 

NWREC is the number of words/record 

NWKEY is the number of words/key 

DSRTl is called by - 

^vSc is ^ " U tf r ° f reCOrds in * e f11 * 
NWREC is the number of words/record 

NWKEY is the number of wordsAey 

ARRAY is a 2560 word array for working storage 

sequence. wtlLE * sorted in ascending 

DSRT2 is called by - 

CALL DSRT2 ( NREC, NWREC, NWKEY ) 

NWREC is the number of words/record 
NWKEY is the number of wordsAey 

seSce* 6 toSt "^ ~* * ™ 1 -ed in ascending 



Sample Problem 

A driver program called MAINL is included with the deck distributed 

™™t S t6 ! 1 d3ta ' creates a flle a "d Points it, calls DSRT1 (which calls 

SfSS?u PlintS the SOrt6d file - ™ s same M™ "ay be u s«i for 
DSRT2 by replacing the integer statement with INTEGER ARRAY (2560) and 
the call statement with CALL DSRT2 (NRFIL, NWREC, NWKEY) 



Operating Instructions 

Illogical branches in DSRT1 result in a stop at PAUSE 1 . If this occurs 
something is wrong with the machine or the program. 
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Systems Material 



box in£sTnS£l\Ta2J ™ COde 3PPear ^^ *• »««»«*** 
have the same °S T^ *e i^rLl^T "? ** COde - QSORT and »*»" 
pose no difficult lnt <"Pretation of that flowchart for either should 
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// JOB T 



0J01 



NAME OSORT 

ONE WCSD INTEGERS 

LIST ALL 



PAGt 01 

C002 

0003 
0004 



SUBROUTINE OSORT (NRtC .NWKKC.iiWKtY .A.T I 
QUICKSORT ALflORITH 271 CACM VOL 8 \0 11 
NHEC IS THE NU«HER OF RECORDS. MvKEC IS THt NUvflEK 
?„ ;< « S «R MCOHO, N.VKEY IS THt NUKMEH OF .vOKui 
PER KEY, A IS THE ARRAY OF RECORDS WHICH TAKES 
NRECNWREC WORDS, T IS WORKING STSRAGE OF ,«H£ C WORDS 

^INTtGER AI32767I. UT 1 15 I .LT I 15 I ,T < 16383) .U.P ,X 

l«l 

J'NREC 
C N 

1 IFiJ-I-lU0.10.il 
11 P-IJ+ 11/2 

NP- (P-ll#NrfREC+l 
NUlI-ll »NWREC+1 
DO 110 N-l.NWREC 
TUI.AINPI 
AINPI»AINII 
NP«NP+1 
110 NI-NI+1 
0"J 

I1-I+ 1 
00 2 K-J1.U 
C*»«»» INSERT YOUR OWN CODE FOR N.ON NUMERIC KtYS 
C.....OR KEYS WHICH ARE NOT THE INITIAL JSrdT 
C»#»«.OF THE RECORD -FROM HERE 
NK«IK-1I*N'/.'REC + 1 
DO 1311 N«1,,\IWREC 
IF, <AINK)-Trj)l2.l30.13 
130 NK»'mK+1 
GO TO 2 
C»««*. _ T0 HtwE 

13 IF IU-KI14.15.15 
Co»»«»IMSERT YOUR OWM CODE FOR NOim NUMERIC KEYS 

C*»*«*OF THE RECORD -FRO'1 HERE 
15 NQ»(U-1)*NWREC+1 
00 150 iW.NWKEY 
IF(A(NU)-TINI I 17.150(16 
150 NQaNij.fi 
GO TO 16 

C««»*» _ T0 H£RE 

17 NK«(K-1).NWREC+1 
NO«(U-l l»NWHEC+l 
00 170 N-l.NWREC 
X -A(NK) 
A INK I. A I, Jul 
A(\U)«X 
NK».JKfl 
170 NO«NO+1 
<■)■()- 1 
GO TO 2 



PAGt 02 

J J5 
uuOO 
000 7 

vJJb 

jJwV 
Ovlo 

Uil 

SOW 

UU1<4 

0J15 
0016 

0017 
OOlo 

ooiy 

(.Oil) 

j.Jil 

;,J2^ 
JJ2 3 
Su24 
Su23 
0j*6 
C3i7 

M,J2t) 

OOi/ 

002C 

oj31 

CU3 t ' 

CJ3J 

0034 

U03S 

OJ36 

C037 

CJ3d 

0039 

0040 

004 1 

J04t 

0043 

C044 

w -J 4 k J 

0046 
0J47 
:04c, 
o04 ■) 
OObJ 
oot>l 
OOii 
0053 
0J54 
0055 
0056 
0057 



/f 



16 O-u-1 

60 TO 13 
14 GO TO 3 

C L 

2 CONTlMJt 
C V 

3 N[»U-ll »NWREC+1 
NC1»<U-1I#NWREC + 1 
00 300 M'liNWREC 
A<\I).A(NU> 
A(f.JI.TIN) 
NI-N1+1 

300 Nd-NU+l 

ifi (2.u)- ( r+ jhis.18,19 

19 LTI'll-I 

UT(MI«U-1 

I-«U+1 

GO TO 20 
IB LTIVI.U+1. 

urnn.j 

J-U-l 

20 M.M+l 
GO TO 1 

10 IF(I-JI21,*,« 
S" "•INSERT rOUR OK* CODE FOR NON NUMERIC KEYS 
C.....OR KEYS WHICH ARE NOT THE INITIAL WOKOS 
C.....OF THE RECORD -FROM HERE 

21 Nl.(l-l) »N«/REC+1 
NJ -IJ-1I*WREC+1 
DO 211 NaliNWREC 

IF IA(,\I)-A(,VJ)I*,210.22 

210 N I ■■! I ■* 1 

211 NJ.NJ+1 
GO TO 4 

C»»»»» , T0 HERE 

22 1I.II-II »NWREC*1 
NJ ■(J-1)»NWREC*1 
00 22fl N«1.NWREC 
X "AINU 
AIM I.AINJt 
A<NJ).X 
M«NI*1 
220 NJ»NJ*1 
C P 

4 M.v-l 

IF(,V»24,24,23 

23 I«LT( m| 
J'UTU'I 
GO TO 1 

24 RETURN 
END 



j3it 

UJ61 
J002 
UJ63 
'J j64 
Ojti 
• 0066 
0067 
uj6b 
0<^6'> 
uu 7o 
0u7I 

007.; 

Cj7j 
0U74 
007>i 
0076 

0077 

OjTd 
Cj7v 
j 3 J 
0*el 
OjS^ 
0uo3 

0u64 

Jjdi 
U036 
JJB7 
ooed 
uOBV 
009u 
0091 

039i 

01/93 

0094 

0055 

0096 

0J97 

S09S 

0J9V 

BlOO 

J 101 

0102 

0133 

S104 

jlOb 

3136 

0107 
U108 



VA'JIAULT ALLOCATIONS 
UT -lilly LT ..!■.: IF 
■W< II «J029 

STATK i ,T ALLOCATIONS 
1 • , "72 11 .J.)7A 
14 »>1A2 2 .31A4 
211 «'V7A 22 .OSSA 

FfATjKFS supposteo 
C'.E ■.T'Vn INTEGERS 

CALLED SUBPROGRAMS 
SUSSC SUB I, -J 

l.TfOER CONSTANTS 

1">C32 2»0033 

CO'F ^Ei)UIRE-.-E,TS FOR USORT 
c ' ; " 'UN VARIABLES 

E'.n JF CC P I LA T I ON 
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K 


■ 0T23 
"J J2A 


P 
NK 


■ JJ71 
•U02I3 




■J02L 


.U 


'•0023 
■Q02U 


I 


•0024 


J 


• 0025 


..P 


•0326 


.1 


•0027 


1 in 

i20 


• an be 

■01AC 
•02C4 


13,) 
300 
4 


•OjFF 
•01E7 
•0202 


13 
19 
23 


■OlOF 
■02C6 
•023C 


IS 
IB 

24 


■011S 
•021F 
•02ED 


ISO 
20 


•013A 
■0236 


17 

10 


■014A 
•023E 


A 70 
21 


■'0104 

•0244 


16 

210 


■OlVA 
• 0274 
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f9 



tl iHJP 

•bTlWE ,.s UA iJSOXT 

1A5Z ^P2A 



0109 
0110 



J001 



f.'AMfc ossti 

0\5 WO'vJ INTEG6HS 

LIST ALL 



PAGE 01 

0002 
0303 
0JU3A 



HC 



c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 



<?/ 



SUHIIOume USIU 1 I -'.FIL,. ..!<«. ;*<LY.ARHAV.TtKPI 
A SUBROUTINE .WICll surts (|l, ASCENDING 

sriioe\Cfi The f|.<st mifu RtcuRDs 
Of ...-me rfORus lach |,, Flit 1. 

JIIIAY IS A FORKING STORAGE VECTOR Uf 2560 1.0RDS 
It- P IS A WORKING STORAGt VECTOR UF NftHEC KOHUS 
IMEVE A'lf \aKFY v.'OKOS I.i Tilt KEY :.'HJCH 
Ai't INTEGERS. THE FIRST In THE HtCOHD 
AND If. major TO MINOR SEUUINCE 

INTEGER Fl.*Gl.FLAG2.ANRAY(2560J .TEMPI320I 

NRSFC • \}0 / NwREC 

\Jmo • JRSEC • 4 

IRH . NHSEC • 6 

I counts records n the fill 

J COUNTS RECORDS I "J A HATCH 
It COUNTS WORDS f. A BATCH 
L COUNTS •.-.'OHOS I, A RECORD 
■I IS A CONTROL INDEX 

NLH POINTS TO RECORD IN LO.JIR HALF 
NUH P01 ,TS TO RECORD IN UPPER HALF 
KEYL POI-ITS TO A KEY *0R0 IN NLH'TH RECORD 
KEYU POUTS TO A KEY WORD IN lyiJH'TH RECORD 
«l COUNTS SOROS I.I Kly 

PHASE 1 TRANSFORM FILE INTO ORDERED 
STRINGS OF NRB HECOHUS 
I • 1 
" - 1 
FLAG! - 
C MORE AFTER THIS BATCH* 

10 IF I I I-1*NRBI-"JRFILI 12.11.11 

11 NREC • liRFIL - 11-11 
FLAG 1 ■ 1 

GO TO n 

12 NRtC • NRB 

13 IT . I 
C OREAD 

GO TO loo 
1* CALL 050RT (NREC.NWREC ,NW«Y. ARRAY, TEMPI 
I * I T 
C J-.-.-R 1 T 

GO TO 110 
15 CONTINUE 

IF I FLAM I 99,10.19 
C PHASE 1 COMPLETE 

c phase i succesive verge passes 

19 I«NRHB*1 

flagi.o 

FLAG2.0 
M-? 
C IS THIS A FULL BATCH ♦ 

20 IFI I [-1* .RBI-NRFIL1 22.21,21 

21 VREC-NRFIL-(I-l) 
FLAG1.1 
'»RUHB.,.SFIL-II-1*, , WHBI 

C ■ ONLY ONE STRING ♦ 

IF INRUHRI 26.26,23 

22 NREC ■ :.RB 
NRuHB-NRHB 

23 IT- I 
C DREAD 

it V^- 'O I' m - 
C iyr,i: ,.,F-ri|-u 
€••••• INSERT your 
C»«»»»OR <iYS ..HlCn »Ht 
C««»»»or The KCCOrj 

KEYL- INKHR-1 l»N...RCC*l 

<EYII«NRHH«NWRCC*1 

DO 2«. N.l.WKEY 

IF IARRAYIKFYLI-ARRAYIK.EYUII 30(29.120 

29 KFYL-KFYl*! 

25 K.EYU-K.EYU*! 

<:••••• _ T0 HE(le 

30 I-l + MHHlUNRUHH 

26 IF (FLAuling, 20,27 

27 IF |FLAq2l99,*n,2H 
2« G.1 TO 199.31.19 I i.m 

31 1-1 
FLAGl'O 
KLAG2aO 
«.3 
GO TO 20 

60 RETURN 
99 PAUSE 1 

CALL EXIT 

DREAO 

ROUTINE TO HEAD FROY DISK STARTING AT 

RECORD I NRtc RECORDS OF NwRtC 

;.'ORDS EACH INTO ARRAY. RETURN 

INDEX IS '« 
100 K«l 

f'.r.jRCc 

DO 101 Jal.NREC 

READ (I'll <ARRAYILI.L-K.K,MI 

1*1*1 

K'K»N»REC 

KV.K'.:*N,.,(EC 

GO TO I1&.24.24I.V 

D„R | T 

ROUTINF TO /'RITE ON DISK STARTING 

AT RECORO I NREC RECORDS OP NWREC 

WORDS EACH INTO ARRAY, RETURN 

Index is .« 

110 K'l 

KV-NVlREC 

DO 111 J. I, NREC 

WRITE (I'll IARRAYILI.L-K.KMI 

1-1*1 

K«K*.NWREC 

111 K'.-.r."*NWREC 
GO TO 15 
MERGE 

ROUTINE TO MERGE NRHB RECORDS 
FROM THE LOWER HALF OF ARRAY 
WITH NRUHB RECORDS FROM THE 
UPPER HALF OF ARRAY AND WRITE 
THESE ON OISK STARTING AT 
RECORO I . NWREC WORDS PER RECORD. 

120 Nl!"! "°"° S '" " er ' " IS * t,U ** «"»« 



CDS- FOR :j.; NUILHIC KEYS 
.Ut THE IvITIAL WORDS 

HI.NE 



101 



JJO/ 
Jull 

vJl". 
»u!5 
unit 
CJ17 
OJ.C 
*ol/ 

00*2 
-j2j 

oo*5 
0026 

»un 

^J2H 

w02* 

003.. 

w:3i 

jo3* 

033j 
Jtl3« 
..035 
U036 
C337 
0^3.-, 
Ov3v 

JJ".l 
»J*i 
JO*. > 

wiJU 

JJ46 
JJ*7 
^j4o 
w j4-> 
CJSJ 
JJ51 
JJ52 
1..53 
Jja<. 
-J55 
0056 
J057 
vJ5S 

JJ6o 
0061 
CJ62 
0S6J 

.■i.^fc 



..n j 

w7i 

J./72 

u-.7j 

0.7k 

ij7s 

jm76 

Jj77 . 

wj7:l 

-;J7', 



O0ll» 
L Jbi 
Lj:6 
i;jS7 
OCcc 
OJev 
0i9j 
wVl 

oo93 

bjy4 

u^96 

oj>7 

uoVd 

U099 

J10J 

3101 

y*u2 

«103 

010* 

wiOS 

u»J6 

uU7 

vi3H 

JlCV 

0110 

0111 

3\\i 

0113 

Oil". 

0115 

0116 

0117 

Jlli 

Ollv 

ol20 

0121 

012.! 

0123 



N!JH« NUHI3 • \(WH fC * 1 
FLAf,2»l 
C COVPAMC KEYS IN TWO RECORDS 

\?\ IWSXh*™* _fhom mere 

KEYU.NUM 

DO 1J1 NMiNWKEY 

123 KEYU • K£YU*1 

C RECORD FROI-: LOWER HALF IS WRITTEN 

124 NLHy-NLH*NWREC-l ""I run 
WRITE (Jil) lARRAral.L-NLH.NLHMI 
NLH«NLH*,»/WREC 

C f^,Sf C0RDS ,N L0W£R H * LF EXHAUSTED 

,,i "ECORO FROM UPPER HALF IS WRITTEN 
126 NUMM . NUH*NWREC-1 "" 

|!!lJ? l1 ' 1 ' «* ,,R * v "-l«L-NUM.NOHMI 

NUH.NUH+HWREC 
C Alt RECORDS IN UPPER HALF EXHAlicrrii 

I F I ( NUH WNWREC I - ( nSuhSJnRHB f f 
1121.129,99 
C RUN OUT RECORDS t\ UPPER HALF 

128 NLIM . (NRUHB*NRHS KNWREC 
NRO.NUH 

00 TO 130 

: .30 !!!, U ?u 0UT REC0R °S IN COWER HALF 

129 NLI.V . NRHB«NWREC 
NRO-NLH 

RUN OUT 

130 NROM ■ NRO+NWREC-1 

"VlH n '" ,ARR * V "-'»l-NHO,NROM» 

NRO«NRO*NWREC 
IF(NROM-NLIM) 130.26t99 
MERGE COMPLETE 
ENO 



CAGL U3 

Ol<4 
012!) 
3126 
0127 
012H 
0129 
013U 
iU31 
0132 
0133 
0134 
0131s 
0136 
0137 
U13/J 

013V 

0140 

3141 

0142 

0143 

0144 

0145 

0146 

C147 

0148 

3149 

01!>0 

0151 

0152 

15153 

3134 

aiss 

0156 
0157 
0158 
015v 
0160 
0161 
0162 
0163 
0164 
0166 
0166 



VAHIAHLE ALLOCATIONS 

r &: l :x% :w.:$i r ec :^ ^-n *<» -c^ , 

STATEMENT ALLOCATIONS 
If OOT* U .J07E 
23 "OdEF 24 .OOFS 
9° «016A 100 .0160 lri 
126 -026E 128 .02AE 129 



PACE 04 



■0307 
•JOU 



■ooae 

•0012 



12 
29 



■OOAE 13 

■OUT 25 

■019B no - 

•02BD 130 • 



■0092 14 

■0120 30 

•01BO 111 
•02C8 



■0098 15 
■013U ■ 2b 
• 010F 



120 



•J0A5 19 
■0143 27 
■01EF 121 



FEATURES SUPPORTED 
0"E „ord INTEGERS 

CALLEO SUBPROGRAMS 
USQRT SUSSC PAUSE 

INTEGER CONSTANTS 

320'001C 4O01D i.niic . «... 

•» JU1U . 8-0O1E L001F 0.0020 2.0021 

CORF REQUIREMENTS FOR OSMTt 
COMHON VARIABLES 



SUBIN SORED SDWRT SDCO.M MUX 



3»0022 
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E'iD OF COMPILATION 



NREC »C009 
M-M , 001 , 



" *00CA NRUMB'OOOl 
l-UH .0014 NLHM «001i 



•OOAB 20 
•0149 28 



•OOBO 21 
■014F 31 



■00C7 22 

■0156 60 



■0200 122 .0222 1*3 .0228 124 



■00E7 
•016* 
•0236 



22- 



// OUP 0167 

•STOW WS UA OSBT1 01*8 

1ABC 0O2C 



// FOR 

C001 



HAot ai 

• NAME MAI1L ua03 

• QHC WOHO INTEGERS oaa-f 

• IOCS (CAW. U32PKINTER, DISK) nan* 

• LIST ALL u^u» 
L15 ' ,U1 - 0005 



?-3 



INTfOm AKKAY I 2S60I ,T£ IP ( 39 | „ ,„. 

D'.'flfil. FILE 1 I4-VJ,J9,U,|PTI ,"^t 

KlfJST cak:> tflls now many CA,<»S FOLLUW ™° 7 

J;Ai U.vir) t.RFIL UJUd 

miTE 13.121 J "0» 

dS°i J""5h"l 3 " NITE5 <teco " 0N U,SK AWJ PimTS KEC0R ' , 2S1? 

«SAJ 12.90) Nl,«2.(TEHPIJI,J.l,J7l Si}} 2 , 

w-llft (PI) Nl.M2,|I(irPIJI,j.J,37» °2J? 

SORT* (3,in ""* N2 " TE, « P '- J '«J"l»3" ooli 

N'.-.'KEV>2 

N.VKEC-39 002 ° 

SSVS' > !'J2Jr ,NRF,L,, '-'- WEC, ' < ''- ,KEy «* , « R * v «TEHP» SS!2 

PRINT- SORTED FILE 0J1V 

l.RITE (3,93) 002 ° 

DO 2 I-1.NRF1L 03il 

READ CPU •;l,-J2.(TE.iP(J),J-l,37l °°" 

2 i-'lTE (1,911 Nl„v2.(TE iP( J) . J. ] . 37 I °°" 

CALL EXIT 0J24 

HJ F)VH»T (2I3.37A2I 0U33 

91 FORMAT (1H .I3.1X.I3.1X.37A2I °"* 

92 FOHMAT (*RH1R£C0«DS PRINTED AS READ , °"f 

93 FORMAT UBHORECOIDS PRINTED AS SORTED „,,, 

0039 



PALc 3} 
VARIAHLE ALLOCATIONS 
ARKAY.0A,7 TEVP .0A2E ,„ T -0A2F WJL-0A30 . . .Mil ,«, -OA32 ,2 .„»„ j 

STATF'-ENT ALLOCATIONS 
9C -0A30 01 .0,^ <,; . JA „ B „ . flA65 j , uAD6 2 >ubja 

FTATUSLS SUPPJrtii'li 
(J':F WORD INTEGERS 
IOCS 

called Subprograms 

SDCo' SD?X ll]° SHt ° S *'" T SCtWP SF '° SiOlx'i.OI SUB.C CARD. PR,T2 S.F.O 

INTEGER CONSTANTS 

2-0A38 3.0A39 L0A3A 37-0A3B 39-0A3C 

CORE REQUIREMENTS FOR 1A1NL 
COMMON VARIABLES 2616 PROGRAM 278 

knO OF COMPILATION 



•OA34 ...<tr.C«.-3 NW-ctL'JAJu 



>^ 



" xtu 



00*0 



-tCmDS PRINTS., AS HEAD 



0042 
00*3 
00* It 
0045 



0049 
0044 
00431 
0042 






-*****. J&/4t, ^^^^ 



YsU**§ 



™t WORP INTMERS 
LIST ALL 



OUOJ 



0Ji,j> 

UUOiA 



76' 



SUHMOurnE rtSMT2 I'irffcC.N.v,<kC.Nw<fcY| 
C OUICKSOKT ALGORITHM 271 CAC-. VOLH NOU 
r ^ EC ,i S Tht '^""EM OF SECONDS* .4*REC IS THE NUMBtll 

C PF«"'?f? S A^T^* "•■"" t ' r ' S Tht " "SwkK OF 5SS5S 
<■ PFK HfVi A IS THE AHHAY OF RECORDS 

. 1 l;'T6«»«.P.UTIU,.LTII6r,AII > a0I.AJI»W.. »-IM0..A«„20,, 
v.l 
I'l 
J.NREC 

READ (I'll <AI(ll,L»l.NWHtCI 

N , 

1 IFU-I-IllOt 10.11 
11 P.I J+ I 1/2 

READ U'PI (T (L).|..1, N », RE C| 
£RIT£ (l.p) (AKLI.L.l.NWREC I 

READ (I'OI (AOILI.L'l.NWHECt 
1 1- I* 1 

00 2 K*U.l) 

READ (l'<) (AKIL).fl.NWKECI 
C»...«INSrRT YOUR OWN CODE FOR NON NUMERIC KEYS 

riling j Evs ' vh,ch are not ** i«m*[ ioRSl 

C«.«.»0F THE RECORD - FROM HEME 
00 13(1 N-l.NWKEY 
IF(AK(N)-T(M 12.130.13 
130 CONTINUE 
GO TO 2 

c»«««» _ T0 HEHE 

13 IF (U-K>14.15.15 
C»»»»»I'(SERT YOUH OXN CODE FOR NON NUMERIC KFYS 

J OR KEYS WHICH ARE NOT THE INITIAL WORDS 

C...#OF THE RECORD - FROM HERE ' ' ' AL W0RDS 
15 DO 1511 fj.l.NWKEY 

IF(AU(NI-TlN))17.UU,16 
150 CONTINUE 
GO TO 16 

c*»»»» _ T0 HERE 

17 WRITE <1'KI (AOILI.L.l.NWRECI 

SS'ISn'v 1 '?' •*""-)»l.<il,NWHECI 
00 170 NaltNWREC 
170 AK|\(.AJ|NI 
O.U-1 

REAO (1'UI IAUID.L.1.NWREC) 
GO TO 2 
16 O'M-1 

READ I l'o) IA0ILI.L-1.NWREC) 
00 TO 13 
1* GO TO 3 
C L 

2 CONTINUE 
C M 

3 WRITE (I'll (A0(LI,L.1,NWRECI 



HAnc -Ji 

'-'Ou6 
0007 
C j <i 
■j j'., 'J 
001 J 

0011 
•JJli 

0013 
jjU 
Col5 
0016 
uol / 
Cols 
0\*1* 

1/02:; 

00<1 

Coi2 

0023 

0024 

-025 

uj26 

jo27 

oOi o 

002V 

003o 

O031 
0Ji2 
0033 
0034 
0035 
0036 
>-J37 
003s 
C33y 
1.040 
00*1 
0042 
C043 
0044 
004i> 
004<i 
0047 
00*3 

004; 

0050 
0051 
0052 
O0S3 
0054 
005!. 
0JS6 



UM5.' 2 "" ,T "•••l.-l.N.RECI 
DO JOO N.l.NWKEC 
Al INI«AOlNI 
3.10 A.3IN) • TIN) 

i9 L f!i?:? , - ,uj,,i "- , -» 

UT(M)"U'-1 
1«U*1 

^ A ? n 'il" ,A|ILI "--1.N".REC) 
oO TO 20 

IK LT(M).iJ+l 

UTIMI.J 

J-C-l 
20 M»M+1 

GO TO 1 
10 IF(I-J)21,«,4 
r..«.?^« = ! 1,J ' ,AJIl -I.L.l.NrfHEC) 

C«.n#.OF THE RECORD - FROM HERE 1AL * 0RL,S 

oo 210 r.-i.NwKEr 

IF(AI|.j|-AJ(\))4,21o,22 
210 COVTIf.UE 
GO TO 4 

C "tt* ,.,, " T0 Ht "RE 

*1 M mm! I*" 1 " 1 '1-l.NWREC) 
c ^ITE ll'll lAJID.L-l.NWREC) 

4 ••!«■. -1 

IFl:-')24.24.23 
'3 I*LTI'4) 

^.IM, .AI,LI.L-1.N«ECI 

GO TO 1 

2* RETURN 
E'JD 



fAOt 03 

0057 

0058 

1,05V 

CJ60 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

006B 

0069 

0070 

0071 

0072 

0073 

0074 

0075 

0076 

0077 

007B 

0079 

0080 

0081 

0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 



1U 



UT 

L 



130 
3C0 
2* 



•3667 



■0737 
■0826 

■0929 



LT 
U 



13 
19 



VA^IA^LC ALLOCATIONS 
>» '0902 p m( , 003 
1 -lAOS J . a<>66 

STATcMEHT ALLOCATIONS 

f *J7-3 3 .J7EB 
* "ICfS 21 . Q90? 

'"t'ATURES SUPPORTED 

o\e •.•:or,t Ihtegers 

CALLER SUBPROGRAMS 
SUBSC SU8IN SDHED 

1'lTEGER CONSTANTS 

1-066E 2-066F 

CO .OV VARIABLES 16*6 PROGRAM 



■0023 
•0668 



■0741 
■0B45 



SO..RT SDCOM SDIX 



AI 
K 



IS 

la 



■0163 AJ 
■0(,69 N 



■0747 
• J.J 74 



ISO 
20 



■02A3 
•06 6 A 



■07S8 

•OtIBB 



HAOt 04 
AO «03E3 



" K •«« * -0663 M .0064 



17 
10 



■0762 
■OdV3 



170 
21 



■0794 
■0HV9 



lb 
210 



•07C3 14 
■03C0 22 



"07tl 
•uBCA 



FMD OF CC -PILATIOM 



702 



// OUP 

■STORE ws UA DSRTi 
1A92 0020 



0093 
0094 



*7 



// FOR 



0001 



NAME MAINL 

ONE WORD INTEGERS 

IOCS ICAR0,113rP«I.\TEH,DISKI 

LIST ALL 



fAut Jl 

0002 
000J 

0304 
0005 



integer TtMPiayj 

OEFP.E FILE 1 151)0.39,0.1911 

,=i;» T .^ A 2 l> TELLS Hn * ' ,A,<y CArtOS FULLO.-. 
RfcAP (J, 901 N«F|L 
W'lTE (3,921 

So 3 ? J""wu D,,NIT " R6 ' C0 "° 0N U,SK ANU p " 1NTs K " 0K » 

»EA» 11,901 \1.N2.|TE.'P(J),J«1,37I 

fcRITE (I'll Nl.\2.ITt IPU),J.1,3T) 
1 **ITE (3,91|N1,N2,(TEMP(J»,J«1,37) 

SORT 
■ NMKEV>2 

•\ .RFC39 

CALL DS3T2 INRFlL.NWREC.NWICEYI 

PRINT SORTED FILE 

WRITE 13,931 

03 2 I-liNRFIL 

READ (I'll M,N2,ITEMP(J),J«1,37) 
2 WHITE 13,911 N1.N2.ITEMPIJI.J.1.3?) 

"0 fORMAT (2IJ,37A2I 

91 FOR/AT (1M ,I3,1X,13.1X,37A2I 

92 FOR'AT UAH1REC0HDS PRINTED AS READ 

93 FORYAT I48H0RECORBS PRINTED AS SORTED 
END 



PACje 02 

OU06 
0U07 
0008 
0009 
0010 
0011 
0012 
0013 
001* 
0015 
0016 
0017 

ooid 

U019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 



>r 



VARIABLE 4LLOCATI0VS ''^ ° 3 

TE^P -OCVE ,P T . 0i)iF NrtFR . 00J0 , >mji 

STATED! ALLOCATIONS " ^ "°° 33 J *°° 3 * «*t»-003» ...vKtC.0036 

•0 -0033 „ . 03 „ „ 

■»J »0065 1 .0006 2 «01i8 
FEATUHES SUPPORTED 

OVE sORD INTEGERS 

IOCS 

CALLED SUBPROGRAMS 
DSRT2 FLO FSTO SRFO c ,», 

«ko„ sou so, «« — sno s,ou s,o, SUBS c car. m SuFI0 S0R£C , ^ 

INTEGER CONSTANTS 

*-°0M ,.003, ,.003* 37 . 003B 39>cojc 

CORE «OUIRE*-E;iTS FOR VAINL 
COKHttN o VARIABLES S6 p ROaRAM „ fc 

END OF COMPILATION 



// XEq 

0001 

""""J soir T " As * EAt> 

f 1 FM UPDAT|'nG S o!( hE L 2o!J? IL11Z ?"™'<TIG,MS ARE OSS£RVEl>. 

i THESr SORTS A*e INTENUEO FOR SORTING rfyci^ ^r^"** ««***« 0005 

«C0R0S PRATED AS SORTED "'*«»* A., B TAGS HECCU NU-UEHS OUol 

i I SHr e « "»"«&»« jti'm;'^ j a « "«««» *»««. 0006 



*? 



